home *** CD-ROM | disk | FTP | other *** search
/ Solaris Press Kit / Solaris Press Kit.iso / mac / Media / Solaris.dxr / Internal_4_Menu Hilite.ls < prev    next >
Encoding:
Text File  |  2002-10-23  |  913 b   |  46 lines
  1. property pMySprite, pHiliteName
  2. global gMode, gbQT
  3.  
  4. on beginSprite me
  5.   pMySprite = sprite(me.spriteNum)
  6. end
  7.  
  8. on mouseEnter me
  9.   if gMode <> pHiliteName then
  10.     setCursorHand()
  11.     sprite(58).member = member(pHiliteName & "Up")
  12.   end if
  13. end
  14.  
  15. on mouseLeave me
  16.   setCursorStop()
  17.   sprite(58).member = member("nullUp")
  18. end
  19.  
  20. on endSprite me
  21.   sprite(58).member = member("nullUp")
  22. end
  23.  
  24. on mouseUp me
  25.   if gMode <> pHiliteName then
  26.     setCursorStop()
  27.     if (pHiliteName <> "trailer") or gbQT then
  28.       gMode = pHiliteName
  29.       if the frame > marker("start") then
  30.         go(pHiliteName)
  31.       else
  32.         go("start")
  33.       end if
  34.       sprite(59).member = member(pHiliteName & "On")
  35.     else
  36.       checkQT()
  37.     end if
  38.   end if
  39. end
  40.  
  41. on getPropertyDescriptionList
  42.   description = [:]
  43.   addProp(description, #pHiliteName, [#default: "trailerUp", #comment: "Hilite Name", #format: #string])
  44.   return description
  45. end
  46.